%Response.Cookies("alibabaName") = "alibabas"
Response.Cookies("alibabaName").Expires=date()+365
dim typedi,rslist,show,country,sf,city,datetime,qylb,sql,sorttype,icolor
if Chkrequest(request("typeid")) then
typeid=request("typeid")
else
Response.Redirect ("../login/chklogin.asp?login=4")
end if
show=replace_text(request("show"))
country=Replace_Text(request("country1"))
sf=Replace_Text(request("province"))
city=Replace_Text(request("city"))
datetime=replace_text(request("datetime"))
qylb=replace_text(request("qylb"))
%>
<%
sql="select * from corporation where cflag=1 and typeid="&typeid&""
if country>"" then sql=sql&" and country='"&country&"'"
if sf>"" then sql=sql&" and sf='"&sf&"'"
if city>"" then sql=sql&" city='"&city&"'"
if qylb>"" then sql=sql&" and qylb like '%"&qylb&"%'"
if show="trust_score" then
sql=sql&" order by trust_score desc"
else
sql=sql&" order by id desc"
end if
Set rslist= Server.CreateObject("ADODB.Recordset")
rslist.open sql,conn,1,1
msg_per_page=20 '定义每页显示记录条数
%>
导航:供求商机 >> 我要采购 >> 查看供应信息 >>
<%
dim typename, Found
sorttype="select class_2.typeid,class_2.typename,class_1.* from class_2,class_1 where class_2.typeid="&typeid&" and class_1.sortid=class_2.sortid"
Set rssorttype= Server.CreateObject("ADODB.Recordset")
rssorttype.open sorttype,conn,1,1
if not rssorttype.eof then
Found = True
typename = rssorttype("typename")
response.write""&rssorttype("sort")&""
response.write" > "
response.write""&rssorttype("typename")&""
else
response.write "供应信息栏目"
end if
%>